home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / proc.ramall < prev    next >
Text File  |  2007-03-01  |  625b  |  30 lines
  1. 0010 // ─┼╠┼╘┼ "PRC.RAMALL"
  2. 0020 // ╠╔╙╘   "PRC.RAMALL"
  3. 0030 
  4. 0040 // BY ─ICK ╦LINGENS
  5. 0050 // ─UCTH ├╧═┴╠ ╒SERS ╟ROUP
  6. 0055 
  7. 0060 PROC RAMALL CLOSED
  8. 0080   USE SYSTEM
  9. 0090   
  10. 0100   LIBPT:=$C7EF
  11. 0110   LIBLO:=$C7F0
  12. 0120   LIBHI:=$C7FA
  13. 0130   LIBPAG:=$C804
  14. 0140   MASK:=%00010000 BITXOR 255
  15. 0150   
  16. 0160   NUMBER:=PEEK(LIBPT)
  17. 0170   FOR I#:=1 TO NUMBER DO
  18. 0180     LO:=PEEK(LIBLO+I#-1)
  19. 0190     HI:=PEEK(LIBHI+I#-1)
  20. 0200     PAG:=PEEK(LIBPAG+I#-1)
  21. 0210     SETPAGE(PAG)
  22. 0220     ROM(LO+256*HI)
  23. 0230   ENDFOR I#
  24. 0240   //
  25. 0250   PROC ROM(X) 
  26. 0260     POKE X,PEEK(X) BITAND MASK
  27. 0270   ENDPROC ROM
  28. 0280   //
  29. 0290 ENDPROC RAMALL
  30.